home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
system
/
idcutils.zip
/
FLOPPY.BAT
< prev
next >
Wrap
DOS Batch File
|
1987-02-07
|
6KB
|
156 lines
Echo Off
REM
REM Written by Gary Conway Infinity Design Concepts
REM
REM 11/05/86
REM All Infinity Design Programs can be located on the
REM SoftStone RCP/M BBS, Louisville, Kentucky (502)241-4109
REM
REM ANSI.SYS must be installed and YESNO.COM and FORMAT.COM must
REM be in your DOS path.
REM
REM This batch file will format floppy disks. It is a bit slow
REM with screen writes (as are all batch files), but it does
REM allow continuous formatting of floppy diskettes without
REM continually hitting ENTER between disk swaps.
REM It is best utilized on systems with two floppy drives.
REM Both drives can be formatted continuously without operator
REM intervention. This is handy when you wish to format a lot
REM of diskettes and don't wish to keep answering a lot of
REM repetative questions.
REM The program will format drives A and B, if you desire other
REM drives, then simply change this BATch file with your editor.
REM Note also the different usages of YESNO.COM.
REM
REM NOTE: On some machines, it has been noted that when
REM formatting, the FORMAT program won't wait for a user
REM response the first time around (subsequent formats
REM proceed without any input required). If this is the
REM case on your machine, you may wish to make the
REM statements that I have surrounded by * 's into non
REM REM statements. This will allow the user to hit
REM ENTER before the first disk is formatted, however the
REM remaining disks will be formatted automatically.
Break ON
Cls
YESNO 13 10 27 "[35m"
Echo ┌─────────────────────────────────────────────────┐
Echo │ Infinity Design Concepts (c) 1986│
Echo └─────────────────────────────────────────────────┘
:GETANS
YESNO 27 "[5;1H" 27 "[33;40m"
YESNO 13 10 9 9 9 "0. Exit"
YESNO 13 10 9 9 9 "1. Format Drive A......(one time)"
YESNO 13 10 9 9 9 "2. Format Both A and B (one time)"
YESNO 13 10 9 9 9 "3. Format Drive A......Continuously"
YESNO 13 10 9 9 9 "4. Format Both A and B Continuously"
YESNO Resp 13 10 9 9 9 9 "Enter Selection ==> "
Rem
If Errorlevel 48 Goto LowrangeOK
Goto GETANS
:LowrangeOK
IF Errorlevel 53 Goto GETANS
If Errorlevel 52 Goto BOTHM
If Errorlevel 51 Goto SINGM
If Errorlevel 50 Goto BOTH
If Errorlevel 49 Goto SING
If Errorlevel 48 Goto DONE
Goto GETANS
REM
:SING
Set RETURN=SINGLE
Goto KILLLINES
:SINGLE
YESNO 27 "[5;1H"
YESNO 13 10 10 "Formatting Drive ""A"""
YESNO 27 "[1;32m" 13 10 "│" 13 10
Set MULT=NO
Goto NEXT
:SINGM
Set MULT=YES
Set RETURN=SINGLEM
Goto KILLLINES
:SINGLEM
YESNO 27 "[5;1H"
YESNO 13 10 10 "Formatting Drive ""A"" Continuously" 13 10 27 "[1;32m"
YESNO "│ Hit " 27 "[5;31m" "CTRL-BREAK" 27 "[0;1;32m" " Twice to Exit" 13 10
:NEXT
Echo │ ╔════════════════════════════════════╗
Echo └───────────────────»║ Insert a Blank Diskette into the ║
Echo ║ - A - drive ║
Echo ╚════════════════════════════════════╝
REM ***********************************
REM ECHO Hit any key to start
REM PAUSE > NULL
REM ***********************************
If %MULT%==YES Goto CONT1
REM format one floppy and exit
YESNO 13 "N" 13 | format A:
YESNO 27 "[13;1H" 27 "[K"
Goto DONE
REM format one floppy continuously
:CONT1
YESNO 27 "[14;1H" 07
YESNO 13 "N" 13 | format A:
YESNO 27 "[14;1H" 27 "[K" 13 10 27 "[K" 13 10 27 "[K" 13 10
YESNO 27 "[K" 13 10 27 "[K" 13 10 27 "[K" 13 10 27 "[K" 13 10
YESNO 27 "[K" 13 10 27 "[K"
Goto CONT1
:BOTH
Set MULT=NO
Set RETURN=BOTH1
Goto KILLLINES
:BOTH1
YESNO 13 10 10 "Formatting Drives ""A"" and ""B""" 27 "[1;32m" 13 10
Goto CONT4
:BOTHM
Set MULT=YES
Set RETURN=BOTHM1
Goto KILLLINES
:BOTHM1
YESNO 13 10 10 "Formatting Drives ""A"" and ""B"" Continuously"
YESNO 27 "[1;32m" 13 10
:CONT4
YESNO "│ Hit" 27 "[5;31m" " CTRL-BREAK" 27 "[0;1;32m" " Twice to Exit" 13 10
Echo │ ╔══════════════════════════════════════╗
Echo └─────────────────»║ Insert Blank Diskettes into Drives ║
Echo ║ A and B ║
Echo ╚══════════════════════════════════════╝
REM ********************************************
REM ECHO Hit any key to continue
REM PAUSE > NULL
REM ********************************************
:CONT2
YESNO 27 "[13;1H" 27 "[K" 13 10 27 "[K" 13 10
YESNO 27 "[K" 13 10 27 "[K" 13 10 27 "[K"
YESNO 13 10 27 "[K" 13 10 27 "[K" 13 10 27 "[K" 13 10 27 "[K"
YESNO 13 10 27 "[K" 13 10 27 "[K" 27 "[31m"
YESNO 07 27 "[13;1H" "Change Disks in B:" 13 10 27 "[32m"
YESNO 13 "N" 13 | format A:
YESNO 27 "[13;1H" 27 "[K" 13 10 27 "[K" 13 10 27 "[K" 13 10
YESNO 27 "[K"
YESNO 13 10 27 "[K" 13 10 27 "[K" 13 10 27 "[K" 13 10
YESNO 27 "[K" 13 10 27 "[K" 13 10 27 "[K" 13 10 27 "[K"
If %MULT%==YES Goto YESHOW
:NOSHOW1
YESNO 27 "[13;1H" 13 10
Goto NOSHOW
:YESHOW
YESNO 07 27 "[31m" 27 "[13;1H" "Change Disks in A:" 13 10 27 "[32m"
:NOSHOW
YESNO 13 "N" 13 | format B:
If %MULT%==YES Goto CONT2
Goto DONE
:KILLLINES
YESNO 27 "[6;1H" 27 "[K" 13 10 27 "[K" 13 10 27 "[K"
YESNO 13 10 27 "[K" 13 10 27 "[K" 13 10 27 "[K" 27 "[5;1H"
Goto %RETURN%
:DONE
YESNO 27 "[14;1H" 27 "[K" 13 10 27 "[K" 13 10 27 "[K" 13 10
YESNO 27 "[K" 13 10 27 "[K" 13 10 27 "[K" 13 10 27 "[K" 13 10
YESNO 27 "[K" 13 10 27 "[K" 13 10 27 "[K" 13 10 27 "[K"
cd\
YESNO 27 "[14;1H" "Finished..."
Set MULT=
Set RETURN=